<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">System.Console.Haskeline.Recover</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-2"></span><span>
</span><span id="line-3"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Encoding.html#"><span class="hs-identifier">GHC.IO.Encoding</span></a></span><span>
</span><span id="line-4"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Encoding.Failure.html#"><span class="hs-identifier">GHC.IO.Encoding.Failure</span></a></span><span>
</span><span id="line-5"></span><span>
</span><span id="line-6"></span><span class="annot"><a href="System.Console.Haskeline.Recover.html#transliterateFailure"><span class="hs-identifier hs-type">transliterateFailure</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Encoding.Types.html#TextEncoding"><span class="hs-identifier hs-type">TextEncoding</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.Encoding.Types.html#TextEncoding"><span class="hs-identifier hs-type">TextEncoding</span></a></span><span>
</span><span id="line-7"></span><span id="transliterateFailure"><span class="annot"><span class="annottext">transliterateFailure :: TextEncoding -&gt; TextEncoding
</span><a href="System.Console.Haskeline.Recover.html#transliterateFailure"><span class="hs-identifier hs-var hs-var">transliterateFailure</span></a></span></span><span>
</span><span id="line-8"></span><span>  </span><span class="annot"><a href="../../base/src/GHC.IO.Encoding.Types.html#TextEncoding"><span class="hs-identifier hs-type">TextEncoding</span></a></span><span>
</span><span id="line-9"></span><span>    </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">mkTextEncoder :: ()
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#mkTextEncoder"><span class="hs-identifier hs-var">mkTextEncoder</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621679093794"><span class="annot"><span class="annottext">IO (TextEncoder estate)
</span><a href="#local-6989586621679093794"><span class="hs-identifier hs-var">mkEncoder</span></a></span></span><span>
</span><span id="line-10"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">mkTextDecoder :: ()
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#mkTextDecoder"><span class="hs-identifier hs-var">mkTextDecoder</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621679093792"><span class="annot"><span class="annottext">IO (TextDecoder dstate)
</span><a href="#local-6989586621679093792"><span class="hs-identifier hs-var">mkDecoder</span></a></span></span><span>
</span><span id="line-11"></span><span>    </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">textEncodingName :: TextEncoding -&gt; String
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#textEncodingName"><span class="hs-identifier hs-var">textEncodingName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621679093790"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093790"><span class="hs-identifier hs-var">name</span></a></span></span><span>
</span><span id="line-12"></span><span>    </span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TextEncoding :: forall dstate estate.
String
-&gt; IO (TextDecoder dstate)
-&gt; IO (TextEncoder estate)
-&gt; TextEncoding
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#TextEncoding"><span class="hs-identifier hs-type">TextEncoding</span></a></span><span>
</span><span id="line-13"></span><span>          </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">mkTextDecoder :: IO (TextDecoder dstate)
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#mkTextDecoder"><span class="hs-identifier hs-var">mkTextDecoder</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(TextDecoder dstate -&gt; TextDecoder dstate)
-&gt; IO (TextDecoder dstate) -&gt; IO (TextDecoder dstate)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Buffer Word8 -&gt; Buffer Char -&gt; IO (Buffer Word8, Buffer Char))
-&gt; TextDecoder dstate -&gt; TextDecoder dstate
forall {from} {to} {state}.
(Buffer from -&gt; Buffer to -&gt; IO (Buffer from, Buffer to))
-&gt; BufferCodec from to state -&gt; BufferCodec from to state
</span><a href="#local-6989586621679093789"><span class="hs-identifier hs-var">setRecover</span></a></span><span>
</span><span id="line-14"></span><span>                                </span><span class="annot"><span class="annottext">((Buffer Word8 -&gt; Buffer Char -&gt; IO (Buffer Word8, Buffer Char))
 -&gt; TextDecoder dstate -&gt; TextDecoder dstate)
-&gt; (Buffer Word8 -&gt; Buffer Char -&gt; IO (Buffer Word8, Buffer Char))
-&gt; TextDecoder dstate
-&gt; TextDecoder dstate
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">CodingFailureMode
-&gt; Buffer Word8 -&gt; Buffer Char -&gt; IO (Buffer Word8, Buffer Char)
</span><a href="../../base/src/GHC.IO.Encoding.Failure.html#recoverDecode"><span class="hs-identifier hs-var">recoverDecode</span></a></span><span> </span><span class="annot"><span class="annottext">CodingFailureMode
</span><a href="../../base/src/GHC.IO.Encoding.Failure.html#TransliterateCodingFailure"><span class="hs-identifier hs-var">TransliterateCodingFailure</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-15"></span><span>                            </span><span class="annot"><span class="annottext">IO (TextDecoder dstate)
</span><a href="#local-6989586621679093792"><span class="hs-identifier hs-var">mkDecoder</span></a></span><span>
</span><span id="line-16"></span><span>          </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">mkTextEncoder :: IO (TextEncoder estate)
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#mkTextEncoder"><span class="hs-identifier hs-var">mkTextEncoder</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(TextEncoder estate -&gt; TextEncoder estate)
-&gt; IO (TextEncoder estate) -&gt; IO (TextEncoder estate)
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Buffer Char -&gt; Buffer Word8 -&gt; IO (Buffer Char, Buffer Word8))
-&gt; TextEncoder estate -&gt; TextEncoder estate
forall {from} {to} {state}.
(Buffer from -&gt; Buffer to -&gt; IO (Buffer from, Buffer to))
-&gt; BufferCodec from to state -&gt; BufferCodec from to state
</span><a href="#local-6989586621679093789"><span class="hs-identifier hs-var">setRecover</span></a></span><span>
</span><span id="line-17"></span><span>                                </span><span class="annot"><span class="annottext">((Buffer Char -&gt; Buffer Word8 -&gt; IO (Buffer Char, Buffer Word8))
 -&gt; TextEncoder estate -&gt; TextEncoder estate)
-&gt; (Buffer Char -&gt; Buffer Word8 -&gt; IO (Buffer Char, Buffer Word8))
-&gt; TextEncoder estate
-&gt; TextEncoder estate
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">CodingFailureMode
-&gt; Buffer Char -&gt; Buffer Word8 -&gt; IO (Buffer Char, Buffer Word8)
</span><a href="../../base/src/GHC.IO.Encoding.Failure.html#recoverEncode"><span class="hs-identifier hs-var">recoverEncode</span></a></span><span> </span><span class="annot"><span class="annottext">CodingFailureMode
</span><a href="../../base/src/GHC.IO.Encoding.Failure.html#TransliterateCodingFailure"><span class="hs-identifier hs-var">TransliterateCodingFailure</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-18"></span><span>                            </span><span class="annot"><span class="annottext">IO (TextEncoder estate)
</span><a href="#local-6989586621679093794"><span class="hs-identifier hs-var">mkEncoder</span></a></span><span>
</span><span id="line-19"></span><span>          </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">textEncodingName :: String
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#textEncodingName"><span class="hs-identifier hs-var">textEncodingName</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093790"><span class="hs-identifier hs-var">name</span></a></span><span>
</span><span id="line-20"></span><span>          </span><span class="hs-special">}</span><span>
</span><span id="line-21"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-22"></span><span>    </span><span id="local-6989586621679093789"><span class="annot"><span class="annottext">setRecover :: (Buffer from -&gt; Buffer to -&gt; IO (Buffer from, Buffer to))
-&gt; BufferCodec from to state -&gt; BufferCodec from to state
</span><a href="#local-6989586621679093789"><span class="hs-identifier hs-var hs-var">setRecover</span></a></span></span><span> </span><span id="local-6989586621679093785"><span class="annot"><span class="annottext">Buffer from -&gt; Buffer to -&gt; IO (Buffer from, Buffer to)
</span><a href="#local-6989586621679093785"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span id="local-6989586621679093784"><span class="annot"><span class="annottext">BufferCodec from to state
</span><a href="#local-6989586621679093784"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">BufferCodec from to state
</span><a href="#local-6989586621679093784"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">recover :: Buffer from -&gt; Buffer to -&gt; IO (Buffer from, Buffer to)
</span><a href="../../base/src/GHC.IO.Encoding.Types.html#recover"><span class="hs-identifier hs-var">recover</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Buffer from -&gt; Buffer to -&gt; IO (Buffer from, Buffer to)
</span><a href="#local-6989586621679093785"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-23"></span></pre></body></html>